home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / RGASM.RAR / ASMCODE.EXE / CHAPT12 / MARY.FOR < prev    next >
Encoding:
Text File  |  1993-05-10  |  550 b   |  20 lines
  1. C       Program Mary ( Chapter 12 )        
  2. C
  3.     interface to subroutine fsound ( fr , dur )
  4.     integer*2 fr,dur
  5.     end
  6.     
  7.     program MARY  
  8.     integer*2 freq(26)
  9.      *            / 330 , 294 , 262 , 294 , 3*330 , 3*294,
  10.      *              330 , 2*392 , 330 , 294 , 262 , 294 , 4*330 ,
  11.      *              2* 294 , 330 , 294 , 262 / ,
  12.      *     durat(26)
  13.      *            / 6*250 , 500 , 2*250 , 500 , 2*250 , 500 ,
  14.      *               12*250 , 1000 /
  15.     do 10 I = 1 , 26
  16.        call fsound ( freq(i) , durat(i) )
  17. 10      continue
  18.     stop
  19.     end
  20.